﻿Public Class Statu

    Sub New(ByVal Kod As String, ByVal Ad As String, ByVal Izin As Decimal, ByVal Hastalik As Integer, ByVal MazaretE As Integer, ByVal MazaretK As Integer)
        Me.Kod = Kod
        Me.Ad = Ad
        Me.Izin = Izin
        Me.YillikHastalik = Hastalik
        Me.YillikMazaretErkek = MazaretE
        Me.YillikMazaretKadin = MazaretK
    End Sub

    Public Kod As String
    Public Ad As String
    Public Izin As Decimal
    Public Tooltip As String
    Public YillikHastalik As Integer = 42
    Public YillikMazaretErkek As Integer = 10
    Public YillikMazaretKadin As Integer = 15
    Public IzindeIzinKazanir As Boolean

    ReadOnly Property YillikMazaret(ByVal Cins As String) As Integer
        Get
            Return If(Cins = "E", YillikMazaretErkek, YillikMazaretKadin)
        End Get
    End Property

End Class
